﻿Public Class PersonelMaasBilgi
    Inherits Process

    Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
        Select Case e.EventType
            Case EventType.Initialize
				Text = "Maaş Hesaplama Bilgisi Girişi"
                InitialHelp = "Personeli seçin."
                AddCombo("@perno", "Personel adı", Personel.PersonelSource, "nl;width=25", "", "Personel seçimi yapmalısınız.")
                StartBody()
                AddList()
                List.AddColumns("yil(Yıl;c;60),ay(Ay;c;40)")
                List.AddColumns("medeni(Medeni;c;60),escalisdrm(Eş Çlş.;c;60),cocukgr1(Çocuk1;c;60),cocukgr2(Çocuk2;c;60),cocukgr3(Çocuk3;c;60),sakatlik(Sakatlik;c;60)")
			Case EventType.ValidateForm
				Rs = Personel.MaasBilgisi(Remote, Input("perno"))
				List.DataSource = Rs
				Buttons.Show("Save.Reset")
				e.Result = True
            Case EventType.Save
        End Select
    End Sub

End Class
